home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / amos / amoslist-0195.lzh / AMOSLIST / text0251.txt < prev    next >
Encoding:
Text File  |  1995-02-01  |  907 b   |  40 lines
  1. > Gr writing 2
  2. > box 10,10 to 20,20
  3. > box 10,10 to 20,20
  4. > gr writing 1
  5. > 
  6. > One garbage pixel is left at 10,10. Why?
  7.  
  8. Because the point (10,10) is plotted twice by the Box command.  It's 
  9. equivalent to doing
  10.  
  11. Plot 10,10 : Draw To 20,10 To 20,20 To 10,20 To 10,10
  12.  
  13. so logical operators like XOR mess up.  (The first Box command clears the 
  14. point (10,10), and then when it's Xored again things get messy.  Write 
  15. your own procedure like so :
  16.  
  17. Procedure _BOX[X1,Y1,X2,Y2]
  18.  
  19.   ' This checks which way you should stop short...
  20.  
  21.   If Y1<Y2
  22.     O=-1
  23.   Else
  24.     O=1
  25.   End If
  26.  
  27.   Plot X1,Y1 : Draw To X2,Y1 To X2,Y2 To X1,Y2 to X1,Y2+O
  28.  
  29. EndProc
  30.  
  31. Hope this helps...
  32.  
  33. --
  34. GCS -d+ H+ s++:- g+ p? !au a- w+++            !Productions 1995
  35. v* C+++ UB+++A++++ P++ L++ E+ N+++       http://satelnet.org/~mentat/
  36. K+ !W--- M-- V po- Y+ t++ 5+ jx G?
  37. R tv++ D- B--- e+ u** h f r++ !n y+ "No matter where you go, there you are."
  38.  
  39.  
  40.